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INTRODUCTION 

This primer, which assumes no previous experience with com- 
puters, is designed to help you learn how to use the NEWBA3IC/ 
CATALYST* system (abbreviated NBS) for communicating with a high 
speed computer. As the picture on the cover suggests, many dif- 
ferent persons will be using the same computer "simultaneously". 
This is possible through time-sharing , a scheme that gives each 
user a turn, but in such a rapid fashion that he seems to have ex- 
clusive use of the machine . 

Users control the computer by typing in commands at the key- 
board of a special device called a terminal. These commands are 
sent to the computer over telephone lines, with responses coming 
back to the user over the same wires. 

The commands have to be in a "language" that the computer will 
understand. There are several such languages, but not all of them 
are suited to the manner in which human beings (who have very ex- 
( tensive vocabularies) prefer to state their problems. The struc- 

ture of the language used in NBS is one of the best ever developed 
from this point of view. It is particularly useful for handling 
the complex needs of students, teachers, scientists, and other 
scholars who employ computers as an aid to learning as well as for 
problem solving of all kinds. 

The primer contains nine sections: 

1. Instructions for establishing contact with the com- 

puter (called logging on) , with a simple example of 
using NBS in "direct-mode" as a powerful desk calcu- 
lator language. pg. 1 

2. A series of examples and problems to lead you through 

the use of the rudiments of NBS in "indirect" or "stored- 
program" mode. P 9 * 2 



*BASIC (Beginners All purpose Symbolic Instruction Code) was 
developed at Dartmouth College. NEWBASIC is an advanced version 
of BASIC developed by Com-Share, Inc. CATALYST (Computer Augmented 
Teaching And Learning sYSTem) was developed at the University of 
Pittsburgh. 
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3. An introduction to advanced NBS & the use of files. pg.3-1 

4. An introduction to Corn-Share Executive commands , with 

application to CAI lesson management. pg.4-1 

5. Explanations and examples of the CATALYST features. pg.5-1 

6. Information about the use of functions in NBS pg.6-1 

7. Suffixes, multiple statements, extended data types, pg.7-1 

matrix operations, debugging commands; scientific appl. 

8. Format control; QED; Business & Administrative appl. pg.8-1 

9. A combined index and summary of NBS/CATALYST. pg.9-1 



ESTABLISHING CONTACT WITH THE COMPUTER (LOGGING ON) 

You will be using a teletype, a typewriter- like device, to 
communicate with the computer. Follow the steps below each time 
you wish to use the computer: 

1. Turn the knob on the lower right corner of the tele- 
type to LINE. 

2 . Dial the number given you by your instructor on the 
telephone next to the teletype console. 

3. Tflien you hear a high-pitched tone on the line, insert 
the phone receiver into the coupler (the small rectangu- 
lar box which has rubber receptacles for holding the 
telephone receiver) , with the cord at the end marked 
"cord" . 

4. The following will be typed on the paper roll. (The 
computer types the parts we have underlined. You should 
respond with the non-underlined portions. After you 
respond, press the return button. This sends your re- 
sponse to the computer . ) : 
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COM- SHARE CENTER K 40 
PLEASE LOG IN :K156B^E C ;MS 



READY, SYSTEM WO 4 
JUL 9 17:08 

LAST LOGIN JUL 9 15:17 



At this point the user typed an 
account number followed by the 
password B C E C , a semi-colon, 
the user code MS , and a 
a carriage return. B C E C are 
made by holding down the CTRL 
key while striking B and E. 

They will not actually print. 



— NBS — NBS means you wish to use 

VER. SEP 8 17:04 the NBS system. 



>PRINT 3. 5+2. 0*4.0 (carriage return) 
11.5 

>PRINT (3. *5.)/ (9. *5.) 



0.333333333 
>PRINT SQRT (256 . ) /7 . 
2.285714236 



>PRINT I ; 1*1; 1+ .25 FOR 1=2 TO 5 
”2 4 1.189207115 

3 9 1.316074013 

4 16 1.414213562 

5 25 1.495348781 



>EXIT 



-LOGOUT 

USAGE 

CCU : 003 

CLT : 0.08 HOURS 

(Hang up the telephone.) 



This tells the computer to 
PRINT 3.5 + (2.0 X 4.0). 

Computers use * for multipli- 
cation, / for division. Parentheses 
are used to group terms. (see note) 

SQRT means "square root of". 

7. means 7.000000000 

This line. tells the computer 
to print I , I squared , and the 
fourth root of I , for 1=2*3, 

4, and 5. 



This says you want to leave 
NBS. 

This says you want to be dis- 
connected from the computer. 
If the usage message does not 
print out, ask for help. 



The above is an example of a session at a terminal using the 
computer as a calculator in what is called direct mode . It is 
called "direct" because the computer does what you "tell it immedi- 
ately after you press the return button. You should go to a termi- 
nal and try the above before reading any further. 



INDIRECT MODE. The rest of this Primer will concentrate on 
using what is called "indirect" or "stored program" mode, which 
is a much more powerful way of using NBS. You will notice that 
in indirect mode you place a number at the beginning of each line . 
This tells the computer to "store" your instructions, and only 
carry them out (in the order of your line numbers) when you say 
RUN. 



NOTE : The order in which calculations are done is to first evaluate 
functions (like SQRT), then do exponentiation (+ or **) , then multi- 
plication and division, then addition and subtraction, UNLESS parenthe- 
ses indicate otherwise. Thus 3+4-5*6/7 is interpreted as (3+4) - (5*6) /7 , 
when you also apply the fact that the computer scans from left to right. 
When in doubt, use parentheses to clarify your intentions. 
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AN EXAMPLE OF INDIRECT MODE NBS 
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C0M- SHARE CENTER K 40 
PLEASE L0G IN : Kl(fcB' u E c >M3 - 



READY, SYSTEM WO 4 

JUL l 

LAST LOGIN JUL 9 15:17 



-NBS 

VER. JUL 9 9:37 



>10 LET A=5 

>20 LET B=3456 7 

.>30 PRINT "THE SUM IS", A+B 

>40 END 



>RUN 



THE SUM IS 34572 



>EXIT 



-L OGOUT 



An account number, followed by 
the password B^'E 0 ; followed by 
the user code MS, followed by 
a carriage return.* 



A system command to ask for 
the New BASIC System.* 

This is an NBS program. The 
other sections of this series 
concentrate on learning to 
write such programs. These 
statements will become clearer 
as you proceed. 



This statement causes the com- 
puter to execute the preceding 
NBS program. It may be re- 
peated as many times as desired 
without retyping the entire 
program. 

Program output for the above 
program. 



Takes you out of NBS ; to either 
leave the computer or begin a new 
program (this can be done by 
typing NBS again at this point) 
* : 1 

Informs ttie computer that you 
are leaving. Do not leave the 
teletype without doing this or 
you will be overcharged. 



USAGE 

CCU: 001 Reports the amount of computer 

CLT : 0.03 H0URS time you used. 



The user must press the carriage return key at the end of any 
line he enters. We will not show this in the rest of the Primer, 
but you must always press the RETURN key at the end of a line. 
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Before you leave the teletype, hang up the telephone and 
turn the lower right knob to off, unless another user is ready 
to begin. 

The lines typed after the symbol > are NBS commands. The lines 
typed after the symbol - are called executive system commands. 

Before examining more of these commands, we should first learn to 
correct typing errors . 



CORRECTING ERRORS 

1. If you type A c (called "control A" vhich means you hold 
down the "CTRL" key while pressing "A") , an Up-arrow ( + ) 
is printed. This means that the character to the left of 
the arrow has been erased in the computer. 

Example ; 

>10 PRR+INT A (4+ + 5 
is interpreted by the computer ass 
10 PRINT A5 

2. If you type W c a back s lash (\) is printed. This means all 
characters up to but not including the preceding comma or 
blank, or to the start of the line are erased. 

Example : 

>10 INTANPRINT A (\B+A 
is taken as : 

10 PRINT B+A 

3. If you type Q c a back arrow («-) is printed. This means that 
the entire current typed line is erased and a carriage return 
and line feed are given. 

Example : 

>10 LET C=-<- 

15 LET C=10 [Note: No > is given] 

means that only line 15 is accepted by the computer: 

15 LET C=10 

4. Suppose you don't want line 15 in your program any more. 

Just type >15 followed by a carriage return. 
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5. If you type a line over, the last line typed replaces any 
previous line with the same number. 

Example : 

10 LET X=5*7/8 
20 PRINT X 
10 LET X=6 * 7/9 . 
really means (to the computer) 

10 LET X=6*7/9 
20 PRINT X 

USE OF SECTION 2 OF THE PRIMER 

Section 2 consists of example NBS programs and problems . 

It is suggested that you first read each example, and then try it 
on a terminal. 

The problems require that you spend some time away from the 
terminal writing out the program that you think solves the problem. 
You should then try your program on a terminal. If you have trouble, 
your teacher can supply solutions to the problems. Don't move 
ahead until you understand each problem. Feel free to also try 
whatever variations on the problems your ingenuity might suggest. 



All of the examples in this section will be variations on the 
problem of calculating population figures for future years, using 
the simplified assumption that each year's growth can be expres- 
sed as a percentage of the population at the beginning of the 
year. 

Example 1 (a) ; Population Growth 

The 1970 Census for Pittsburgh shows a population of approxi- 
mately 600,000. Assuming a growth of 5% each year, the following 
program calculates and prints the population for each year from 
1971 to 1980. 
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10 LET P=600000 



20 LET Y=1970 
25 LET Y=Y+1 

30 IF Y>19 80 G0T0 70 

40 LET P=P+.05*P 
50 PRINT Y;P 
60 G0T0 25 



Assigns the initial population 
P* (commas are omitted!). 

Assigns the initial year to Y. 

Calculates the next year. 

This is an IF statement. If the 
year Y has become greater than 
1980, it tells the computer to 
continue at instruction 70; 
otherwise the computer executes 
the next instruction, (line 40) 

Increases the population by 5% 
of its latest value and assigns 
this new value to P. 

Year and population are printed. 
The semi-colon puts two to four • 
spaces between them on the output 
sheet, and leaves room for a 
sign — see below. 

Go back to instruction 25 to 
increment Y and continue from 
there . 



70 PRINT "FINISHED" 



The word FINISHED will be printed 
on the output. 



80 END 



The last statement of any NBS 
program should be an K END : ' . 



The output (the results printed by the computer) of this 



program is: 

>RUN 



1971 


630000 


1972 


661500 


1973 


694575 


1974 


729303.75 


1975 


765768.9375 


1976 


804057.3844 


1977 


844260.2536 


1978 


886473.2662 


1979 


930796.9296 


1980 


977336.776 



FINISHED 



*P is a variable name. In NBS a variable name must be a single 
alphabetic letter or single alphabetic letter followed by a 
© single number. (Examples A, B, Z, Z9, Al, I, N3) . 
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Example 1(b) : Another Technique 



Another student discovered a second way to write the same 
problem. Instead of using an IF statement along with several 
LET statements to increment Y and check for the final year, he 
used a FOR-NEXT loop. This is his program below: 



10 LET P=600000 
20 LET Y=1970 



30 FOR Y=Y+1 T0 1980 STEP 1 

40 LET P=P+.05*P 
50 PRINT Y;P 

60 NEXT Y 



70 PRINT "FINISHED" 

80 END 

Note: Line Numbers 



This is a FOR statement. In 
this case, Y is first given the 
value of Y+l. Then the com- 
puter automatically checks to 
see if Y is greater than 1980. 

If it is , it skips to the instruc 
tion after the NEXT Y instruction 
in this case, instruction 70. 
Otherwise it continues with 40. 

Each FOR statement in a program 
must have its own matching NEXT 
statement. When the computer 
sees this , it automatically goes 
back to the FOR statement and 
increments Y by the value of the 
number following the word STEP 
(in this case it "increments" or 
"increases" Y by 1) . 



1. Each instruction of the program is numbered. 
These numbers may be any integer five digits 
or less, indicating the order in which you 
wish the program to run. The first instruction 
above has a line number (LN) 00010, which may 
be written as 0010, 010, or 10. Thus line 
numbers go from 00000 to 99999. 



The instructions and their proper line numbers 
may be typed into the computer in any order. 
The computer will then reorder them for you in 
ascending order. 
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Problem 1 : Variation on Population Growth 

Now adapt this program to print out the populations of 
Pittsburgh from 1981 to 1990, assuming that in this period 
the rate of population growth will be eight per cent or .08, 
and that the population in 1980 is 977337. 

* First write the program below: 

10 

20 

30 



Now run Problem 1 on the computer to see what your output 
looks like. When you are finished or if you are having serious 
problems, ask your instructor to see how someone else did it. 
This same procedure should be used for each program you are 
asked to write. 

Note: Modifying Your Program 

1. If you wish to modify a few lines of the program you 
just wrote, or add lines, just type in the new lines 
and then type >RUN. 

2. If you wish to enter a new program you must first 
destroy your previous program. To do this type 

•k 

EXIT . This takes you out of NBS. Then type NBS. 

This brings you back into NBS and at the same time 
destroys your previous program. Now you are ready 
to type in your new program. 



* Note that the symbol > must be typed by the computer before 
the command EXIT works. If you can't get a ">", press the 
escape (ESC) key first. If the computer asks CONTINUE?, answer 
NO. 
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Example 2 (a) : New Information 

It would be useful to have figures for the population in- 
crease for every five years between 1975 and 2000. The pro- 
gram below is adapted to meet this need. Although calculations 
are done for each year, printing is only done every five years. 
K is used as a counter to determine when it is time to print. 



100 PRINT "YEAR" , "P0PULATI0N" 

105 LET P=600000 
110 LET Y=19 70 



115 LET Y=Y+5 



120 IF Y>2000 G0T0 150 



125 F0R K=1 T0 5 STEP 1 
130 LET P=P+.05*P 
135 NEXT K 



140 PRINT Y , P 



145 G0T0 115 

150 PRINT "FINISHED" 

155 END 



Headings for output, note that 
the comma places each element 
fifteen spaces from the begin- 
ning of the previous element 
{see output) . 



The year is increased by five, 
since we will be printing every 
five years . 



If Y is greater than the last 
year we desire printed, we are 
finished. 



A FOR-NEXT loop uses K to count 
to five in steps of 1 to do cal- 
culations for each one of the five 
years. All the steps between the 
FOR statement and the NEXT state- 
ment are executed for each value 
of K (in this case, K = 1, 2, 3, 

4 , 5 , ) . When K is greater than 
five, the computer skips to in- 
struction 140. 



Prints under headings . 



Goes back to calculate another 
group of five years . 
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output from this 


program is: 


>RUN 


YEAR 


P0PULAT I0N 


19 75 


765768.9375 


19 80 


977336.776 


19 85 


1247356.908 


1990 


. 1591978,623 


1995 


2031812.964 


2000 


2593165.425 



FINISHED 



Example 2 (b) : 



Another student wrote the following program which 
produces the same output, but uses a FOR-NEXT loop tc incre- 
ment J and check for the final year. 



100 PRINT "YEAR","P0PULATI0N' ! 
105 LET P=600000 
110 LET Y=1970 

115 F0R J=Y+5 T0 2000 STEP 5 

120 LET K=1 

130 IF K>5 G0T0 150 
135 LET P=P+ . 0 5 *P 



Each J indicates the next year 
for which P is to be printed. 
In this case, J = 1975, 1980, 
1985, 1990, 1995, and 2000. 



K counts each individual year 
in a five year group; it begins 
with one. 



When the fifth year's calcula- 
tions are complete, it skips to 
print; otherwise it continues 
calculating P. 



O 

ERIC 



2-9 



140 LET K=K+1 



K is increased for the next year. 



145 G0T0 130 Goes back to check K. 



150 PRINT J,P After calculations for five years 

are completed# the current year 
and population are printed. 



155 NEXT J Time to get a new J. The computer 

goes back to the FOR statement 
(instruction 115) to increment 
and test J. 

160 PRINT "FINISHED" 

165 END 



Problem 2 ; Use of "Nested"* FOR Loops 

Can you find a third approach using two FOR-NEXT loops in 
your program? Write your program out on one of the coding sheets 
(supplied by your teacher) before trying it out on a terminal. 



*The word "Nested" indicates that one FOR-NEXT loop is placed 
within a second FOR-NEXT loop, etc., etc. 



Example: 



>10 F0R 1=1 T0 
>20 F0R J=1 T0 
>30 PRINT I, J 
>40 NEXT J 
>50 NEXT I 
>60 END 
>RUN 



3 

2 



INNER LOOP 



OUTER LOOP 



Output : 

1 1 

1 2 

2 1 

2 2 

3 1 

3 2 

The J-loop is nested within the I-loop. 
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Example 3 (a) : Reading in Data 



It has now been determined that the rate of population in- 
crease changes for each five year period, rather than remaining 
at a constant .05. Taking this new fact into consideration, the 



following program was written to 
growth . 

100 PRINT " YEAR", (LF) 
"POPULATION", "RATE" (CR) 

105 LET Y=1970 
110 LET P=600000 

115 LET S=5 

120 F0R J=Y+S T0 2000 STEP S 

125 READ I 

130 F0R K=1 T0 S 



determine five-year • population 



(LF) means| line feed; this is 
used instead of carriage return 
(CR) to continue a line. Notice 
that the space before YEAR po- 
sitions the heading more accurate- 
ly (see output) . 

S is assigned the numer of 
years in each period; in this 
case we always have five year 
periods . 

S is used to determine the STEP 
value. Once the FOR statement 
begins the STEP value cannot 
be changed within the loop. 

Each time this statement is 
executed, a new value is read 
from the data list in steps 
160 and 161 and put into I. I 
becomes the new rate of increase. 

Since the STEP value is 1, it 
can be omitted. 



135 LET P=P+I*P 



I is now used in the calculation. 



140 NEXT K 
145 PRINT J,P,I 
150 NEXT J 

] 55 PRINT "FINISHED" 



160 DATA .05,. 03,. 08 

161 DATA .06,. 04,. 05 



The rate for each period is also 
printed. 



Each time a READ statement is ex- 
ecuted, the next number is read 
from this list. There can be more 
than one READ statement in a program. 



165 END 
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The output from this program is: 



>RUN 
YEAR 
19 75 
19 80 
19 85 
1990 
1995 
2000 

FINISHED 



Further Explanation 



P0PULATIJ2JN 


RATE ] 


765768.9375 


0.05 


887736.0761 


0.03 


1304375.541 


0.08 


1745548.712 


0.06 


‘2123726.907 


0,04 


2710473.495 


0.05 



Data Statements : 



When the computer first finds a READ statement (Example: 

125 READ I) , it looks for a data statement (Example: 160 DATA 

.05, .03, .08), and assigns the first item (.05) in the data 
list to variable given in the READ statement (in this example, I) . 
The second time a READ statement is found, the second item (.03) 
on the data list is assigned to the variable given in the READ 
statement, etc. In the example above, there are six items in 
the data list, so the programmer should be certain that the READ 
statement is not executed more than six times. 



There can be as many DATA statements as you wish, as long 
as the number of data items matches the number of times the 
program executes the READ statement. 



In the above example we could use : 



160 


DATA 


h. 

in 

o 

• 


.03 


160 


DATA 


.05, 


.03 


161 


DATA 


.06, 


.04 


160 


DATA 


.05, 


.03 


161 


DATA 


.08, 


.06 


162 


DATA 


.04, 


.05 



.08, .06, .04, .05 

.08 

.05 



etc. 
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Items on a DATA list are thus "used up" each time a READ 
takes place. A special command called RESTORE can be used to 
reactive the data lists so that they can be used again. 



Problem 3; Variable Time Periods 

It is also desirable to see the population growth, when the 
rate of increase changes for variable time periods. For example, 
for the first five years, the rate is .05, for the next three 
years the rate is .08, etc. Below is output obtained from such 
a program. See if you can write a program to produce the same 
report. 



Hints: 

1. The number of years in each period might be also 
read from the DATA statement. 

2. Once a FOR-NEXT loop is begun in NBS, the step 
value cannot be changed. Since we do not have a 
constant STEP value (the time periods change) it 
might be better to use an IF statement to control 
the testing of J. The incrementing for each time 
period is then controlled by a LET statement. 



Output : 



>RUN 

YEAR 

1975 

1978 

1984 

1985 
19 87 
1990 
1995 
1998 
2000 

FINISHED 



Write your program out on a coding sheet or £>j.anK paper 
before running it. 



P0PULATI>2fN 


RATE 


765768.9375 


0.05 


964648.3198 


0.08 


1368372.078 


0.06 


1423106.961 


0.04 


1568975.425 


0.05 


1922062.361 


0.07 


2020106.859 


0.01 


2272345.481 


0.04 


2601608.342 


0.07 
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Example 4(a) : Area Per Person 

Rather than write a separate program whenever it was desired 
to change the initial year and last year of the study, it was 
decided to permit the user to enter the years and the initial 
population each time the program runs. In addition, the number 
of square feet per person is also calculated each time a year is 
printed. For this, you must estimate the area of the city of 
Pittsburgh. This is the program which resulted. 



100 INPUT Y 



The computer presents a question 
mark, after which the user types 
in the value for Y (the year of 
the study) . 



Produces a second question mark, 
after which a value for P is 

105 INPUT P typed. P is the population for 

the initial year. 



110 INPUT E 



Produces a third question mark 
for inputting the last year 
desired. 



115 PRINT " YEAR", £ 
"P0PULATI0N" , " SQ . FT „ /PERS0N" 

120 LET S=5 
125 LET 1= . U 5 



130 LET W=5 



135 LET L=ll 



140 LET W=W*5280 
145 LET L=L*52 80 



150 LET F=W*L 



Notice the new heading. 

Using a constant rate of .05 
again . 

The wi^/ch of the city in miles . 
The length of the city in miles. 
Changes miles to feet. 



Determines square feeit in the city, 
assuming it has an area equivalent 
to a rectangle 5 miles wide and 11 
miles long. 
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155 F0R J=Y+S T0 E STEP S 



Each value in this statement is 
indicated by a variable expression. 



160 F0R K=1 T0 S 
165 LET P=P+I*P 
170 NEXT K 



180 PRINT J,P,F/P 

Square feet per person is also 
calculated and printed. 

185 NEXT J 

190 PRINT "FINISHED" 

195 END 



The output from this program is: (the user typed in the three 
words after the question marks) 



>RUN 

71970 

7600000 

72000 

YEAR 


P0PULATI0N 


SQ.FT./PERS0N 


1975 


765768.9375 


2002.316789 


1980 


977336.776 


1568.867598 


1985 


1247356.908 


1229.248815 


1990 


1591978.623 


963.1486113 


1995 


2031812.964 


754.6521392 


2000 


2593165.425 


591.2896976 



FINISHED 

Problem 4 : Beyond Pittsburgh 



It would be advantageous to be able to use the same program 
to report the population growth for any city, state, or country 
desired. However this makes it necessary to allow the user to 
input at the beginning of the program the length and width of 
the area, the rate of increase, and the time period for which 
printing is desired as well as the initial ye?-.r, initial pop- 
ulation and final year. Write such a program on a coding sheet 
or the rear of this page. In addition, calculate the number of 
persons per square foot for each year printed. 
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Example 5 (a) : A User Control 

With so many input statements it is difficult for a user 
to remember the order in which the values are inputted. Comments 
before each INPUT statement, identifying the value to be inputted 
are therefore useful. 

It is also convenient to be able to branch back to the begin- 
ning of the program to print a report for a new city without having 
to type a new RUN statement. In fact, it is possible to ask the 
user his preference. The following program incorporates these ideas. 



100 PRINT "TYPE THE CITY'S INITIAL P0PULATI0N" 

105 INPUT P 

110 PRINT "TYPE THE RATE 0F INCREASE USING DECIMAL N0TATI0N " 
115 INPUT I 

120 PRINT "C0NSIDER THE CITY AREA AS A RECTANGLE" 

121 PRINT "TYPE ITS APPR0XIMATE WIDTH IN MILES" 

125 INPUT W 

130 PRINT "TYPE ITS APPR0XIMATE LENGTH IN MILES" 

135 INPUT L 

140 PRINT "TYPE THE YEAR" 

145 INPUT Y 

150 PRINT "TYPE THE FINAL YEAR F0R WHICH Y0U WANT THE" 

151 PRINT "P0PULATI0N CALCULATED" 

155 INPUT E 

160 PRINT "TYPE THE TIME PERIOD F0R WHICH Y0U WANT THE" 

161 PRINT "CALCULATED P0PULATI0N PRINTED" 

165 INPUT S 

200 PRINT " YEAR", "P0PULATI0N" , "SQFT/PERS0N" , "PERS0N/SQFT" 

210 LET W=W*5280 

212 LET L=L*52 80 

215 LET F=W*L 

220 F0R J=Y+S T0 E STEP S 

225 F0R K=1 T0 S 

230 LET P=P+I*P 

235 NEXT K 

240 PRINT J,P ,F/P , P/F 
245 NEXT J 

250 PRINT "IF Y0U WISH T0 D0 FURTHER CALCUL AT I0N TYPE YES." 



0 
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Variables followed by a dollar 
sign ($) contain character 
strings (a character is any 
number, letter or special sym- 

255 INPUT A$ bol) . These variables cannot 

be used in calculations, al- 
though they may be compared to 
each other or to a string of 
characters enclosed in quotes . 



260 IF A$="YES" G0T0 100 
265 PRINT "FINISHED" 

270 END 



In a string comparison, the two 
strings must be exactly the 
same, for th' statement to be 
true . 



Output : 

>RUN 

TYPE THE CITY'S INITIAL P0PULATI0N 
7600000 

TYPE THE RATE 0F INCREASE USING DECIMAL N0TATI0N 
7.05 

C0NSIDER THE CITY AREA AS A RECTANGLE 
TYPE ITS APP R0XIMATE WIDTH IN MILES 
75 

TYPE ITS APPR0XIMATE LENGTH IN MILES 
711 

TYPE THE YEAR 
71970 

TYPE THE FINAL YEAR F0R WHICH Y0U WANT THE 

P0PULATI0N CALCULATED 

72000 

TYPE THE TIME PERI0D F0R WHICH Y0U WANT THE 
CALCULATED P0PULATI0N PRINTED 
75 



YEAR 


P0PULATI0N 


SQFT/PERSON 


PERSON/SQFT 


1975 


765768.9375 


2002.316789 


4 . 994214729E-04 


1980 


977336.776 


1568.867598 


6. »74024178E-04 


1985 


1247356.908 


1229.248815 


8.135049537E-04 


1990 


1591978.623 


963.1486113 


1.0382613733-03 


1995 


2031812.964 


754.6521392 


1. 325113848E-03 


2000 


2593165.425 


591.2896976 


1.691218372E-03 



IF YOU WISH TO DO FURTHER CALCULATION TYPE YES. 
7YES 



NOTE: 4 . 994214729E-04 is "Scientific Notation" for 

4,99421472;,' * 10“ 4 = 4.994214729 * .0001 

= .0004994214729 
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TYPE THE CITY'S INITIAL P0PULATI0N 
7600000 

TYPE THE RATE 0F INCREASE USING DECIMAL N0TATI0N 
? . 05 

C0NSIDER THE CITY AREA AS A RECTANGLE 
TYPE ITS APPR0XIMATE WIDTH IN MILES 
?5 

TYPE ITS APP R0XIMATE LENGTH IN MILES 
?11 

TYPE THE YEAR 
71970 

TYPE THE FINAL YEAR F0R WHICH Y0U WANT THE 

P0PULATI0N CALCULATED 

71975 

TYPE THE TIME PERI0D F0R WHICH Y0U WANT THE 
CALCULATED P0PULATI0N PRINTED 
71 



YEAR 


P0PULATI0N 


SQFT/PERS0N 


PERS0N/SQFT 


1971 


630000 


2433.828571 


4 . 108752817E-04 


1972 


661500 


2317.931973 


4.314190458E-04 


1973 


694575 


2207.55426 


4* 5298999 81E-0 4 


1974 


729303.75 


2102.432628 


4.75639498E-04 


1975 


765768.9375 


2002.316789 


4 . 994214729E-04 



IF Y0U WISH T0 D0 FURTHER CALCULATI0N TYPE YES. 
7N0 

FINISHED 



Problem 5 : A User Controlled Package 

The user may not always desire the information on available 
land area for the population. Write a program which makes the 
calculation and printing of this information optional, according 
to the user’s specification at the beginning of the program. Use 
a separate coding sheet to write your program, if you wish. 
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SECTION 3 - ADVANCED NBS FEATURES; USING FILES 

MORE ON THE FOR-NEXT STATEMENT 

In this section we illustrate some alternate forms of the 
FOR-NEXT statements that are available in NBS 



I is initialized to 1. Each 
time this statement is returned 
to by the NEXT statement, I is 
incremented by the STEP value 
of 1. Therefore I takes on the 
values 1, 2, 3, 4, and 5. When 
I is greater than 5 , execution 
skips to the instruction follow- 
ing the NEXT statement. 

20 PRINT I Prints the value of I. 

30 NEXT I Goes back to statement 10. 

40 END 

RUN 

1 

2 

3 

4 

5 

10 FOR 1=1 TO 10 STEP 3 Similar to previous example ex- 

cept I now is incremented by 3 . 

20 PRINT I 
30 NEXT I 
40 END 



FOR. . .TO. . .STEP 
10 FOR 1=1 TO 5 STEP 1 



RUN 

1 

4 

7 

10 



FOR. .. STEP ... UNTIL 

10 FOR 1=1 STEP 5 UNTIL I>20 

20 PRINT I 

30 NEXT I 

40 END 



I is initialized to 1 then incre- 
mented by 5 . The instructions 
within the loop are executed until 
I attains a value greater than 20 . 
At this time the loop is skipped 
and the instruction after the NEXT 
statement is executed. 
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RUN 

1 

6 

11 

16 



FOR. . .STEP. 


. .WHILE 


10 FOR 1=1 


STEP 3 WHILE K10 


initial 


value Test 


I 


of 


value 


increment 


20 PRINT I 




30 NEXT I 




40 END 




RUN 





1 

4 

7 



EXAMPLES OF USING DELETE (DEL) 



-N3S 

10 INPUT A 

20 INPUT B 

30 PRINT "A=";A 

40 PRINT "B=" ;B 

50 PRINT "A+B" ; A+B 

60 END 

RUN 

?33 

?66 

A= 33 

B= 66 

A+B 99 

5 0 PRINT "A+B " ; A+B ; " A*B " ; A*B 

DEL 20 

LISTNH 

10 INPUT A 

30 PRINT A=" jA 

40 PRINT "B=" ; B 

5 0 PRINT "A+B " ; A+B ; "A*B " ; A*B 

60 END 

DEL 40-50 

5 PRINT "START" 

LISTNH 

5 PRINT "START" 

10 INPUT A 

30 PRINT "A=" ; A 

60 END 

RUN 

START 

?7 




The statements between FOR and 
NEXT are executed as long as the 
expression (I>20) is false. When 
it becomes true, the loop is skip- 
ped. 

I is given the initial value of 
1 then incremented by 3. If I 
is less than 10 , the statements 
between the FOR and NEXT statement 
are executed. If I is greater than 
or equal to 10 , execution skips to 
the statement following the NEXT 
instruction. 



IN NBS 



This replaces the old line 50. 
To delete line 20. 



To delete lines 40 through 50. 
Step 5 is new. 



7 
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'FOR* WITHOUT 'NEXT' 



FOR is usually used with NEXT as in the following example: 

>10 FOR I = 1 TO 10 STEP 2 
>20 PRINT 1*1 
>30 NEXT I 

In NBS the above . program can be written with one line as follows: 
>10 PRINT 1*1 FOR I = 1 TO 10 STEP 2 

We call FOR a SUFFIX when used this way. Here is another example 
that uses FOR as a suffix in lines 10, 20, and 30. It also 
illustrates the use of "+" between strings (line 20) which is 
called string concatenation . 

>5 DIM A$ (5) 

>7 PR. "WHAT ARE FIVE G00D ADJECTIVE MODIFIERS F0R 'BABY'?" 

>10 INPUT A$ (I) F0R 1=1 T0 5 

>20 LET A$ (I) = A$ ( I ) + " BABY" F0R 1=1 T0 5 

>25 PR. "LET’S SEEL H0W THEY L00K: " 

>30 PRINT A$ (I) F0R 1=1 T0 5 

>40 END 

>RUN 

WHAT ARE FIVE G00D ADJECTIVE MODIFIERS F0R 'BABY'? 

7L0VABLE 

?CUTE 

7PLAYFUL 

7B0UNCING 

7LAUGHING 

LET'S SEE H0W THEY L00K: 

L0VABLE BABY 
CUTE BABY 
PLAYFUL BABY 
B0UNCING BABY 
LAUGHING BABY 
> 



NOTE : Step 5 above is called a DIMENS IONing statement. It is a 

way of saying that there will be five variables called A$ (1) , 
A$ (2) , A$(3), A$(4), and A$ (5) available to this program. 

A$ is a string array (see next page for further explanation) . 
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USE OF SUBSCRIPTED VARIABLES j DIMENSIONING ARRAYS 



Mathematicians use letters like X, Y, Z, A, B, C for variable 
names. In NBS we do the same. We can also use variable names 
like Xl, Y1 , Z2, A3, Bl, C9, i.e., a single letter followed by a 
single digit. 

A third possibility allowed in NBS is to use names like 
X(l), X (2) , X ( 3) , A(23) , A(24) , A(25), A(26) , etc. These are 
called subscripted variables , and a group of such variables all 
using the same letter is called an array . Thus, for example, we might 
speak of the "X array 1- which contains the three variables, X(l) , 
X(2) , and X(3) . The 1, 2, and 3 are called subscripts of X. The 
subscript can be any integer, or any expression which can be eval- 
uated by the computer. Examples: X(l), X(500), X(K), X (K+J) 

Before using an array, you must warn the computer as to how 
many elements you will want in each array so that it will reserve 
space for all of them. You do this with the DIMENSION (DIM) 
statement. 



EXAMPLE OF THE USE OF ARRAYS 



Here is a program that calculates the net cost of four 
appliances for 15%, 20%, and 25% discounts. The original cost of 
each appliance is supplied by the user, and stored in the array A. 
The three discounted costs are stored in arrays E, F, and G, and 
then printed out from these arrays. 



10 DIM A(4),E(4),F(4),G(4) 

20 FOR K=1 TO 4 

21 PRINT 

25 PRINT "TYPE COST OF APPLIANCE" 
30 INPUT A (K) 

35 LET E(K)=A(K) *.85 
40 LET F(K)=A(K) *. 80 
45 LET G(K)=A(K) *.75 
50 NEXT K 

54 PRINT 

55 PR. " " ," 15% DISCOUNT", 

60 FOR K=1 TO 4 
65 PRINT "APPLIANCE" :K,E(K) 

70 NEXT K 
75 END 







Statement 10 reserves space 
for A (1) ,A(2) ,A (3) ,A (4) ,E(1) , 

E (2) ,E (3) ,E (4) , etc. 

The subscript K changes as 
determined by the FOR-NEXT 
loop. 

The PRINT statements in lines 
21 and 54 cause a blank line 
to be printed for purposes 
of spacing. The " ; " at the end 
of line 25 causes the "?" gen- 
erated by line 30 to print 
after "K" of line 25. 

," 25% DISCOUNT" 



K; 



" 20% DISCOUNT" 
,F(K) ,G(K) 
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> RUN 
TYPE 


COST 


OF 


APPLIANCE 


1756.89 


TYPE 


COST 


OF 


APPLIANCE 


27123.99 


TYPE 


. :ost 


OF 


APPLIANCE 


378.95 


TYPE 


COST 


OF 


APPLIANCE 


47456.00 



APPLIANCE 1 
APPLIANCE 2 
APPLIANCE 3 
APPLIANCE 4 



15% DISCOUNT 

48.3565 

105.3915 

7.6075 

387.6 



20% DISCOUNT 

45.512 

99.192 

7.16 

364.8 



25% DISCOUNT 

42.6675 

92.9925 

6.7125 

342 



USE OF GO SUB 



The following is an example of the use of GOSUB-RETURN 
statements : 








LET X=3 
GOSUB 400- 
PRINT U,V, 

LET X=5 
GOSUB 400- 
LET Z=U+2*V+3’ 

PRINT Z 
END 

LET U=X*X 
LET V=X*X*X 

LET W=X*X*X*X+X*X*X+X*X+X 
RETURN 









Normal return of GOSUB 
is to next sequential 
statement. In NBS you 
can change the normal 
return by . using : 

210 GOSUB 400 GOTO XXX 
where XXX is any line 
number in your program. 

I 

: o . -T i \ 

y r> r Cv l it i 



When statement 400 is entered by the GOSUB 400 in line 110, 
the computations in lines 400, 410, and 420 are performed, after 
which the computer goes back to statement 120. When the sub- 
routine is entered from statement 210 , the computer goes back to 
statement 220. 

GOSUB can be used in every situation where GOTO can be used, 
including IF and ON statements. For example: 

GOES TO 100 110 90 20 

20 ON X GOSUB 100,110,90,20 When X= 1 234 



Note the use of END in the above program. Although an END 
statement is not needed to terminate a sequential type program, 
it must be used in programs using the GOSUB-RETURN statements. 

An END statement should separate the main program and the sub- 
programs to make sure that the subprograms are not executed after 
the main program has been processed. 



O 
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Using Files in NG 

There will be times when you wish to save programs on files, 
loading them back into your user work area at another time. The 
picture above suggests a good way of thinking of this process. 
Although computers use electronic counterparts of the work area 
and the file cabinet shown in the picture, the analogy is quite 
accurate . 

We will first show you how to carry out the saving and load- 
ing process for NEWBASIC programs, and then illustrate how files 
can also be used to save data for use by NBS programs , or data 
generated by NBS programs . 

ERIC 
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SAVING AND LOADING NBS PROGRAMS ON DISC 

The commands SAVE and LOAD together with an appropriate file 
name do what the picture on the previous page suggests . There 
are a number of other commands that also help in this process . 
This section will explain these commands, and give examples of 
their use. 

Previously you used two of the commands in the command 



language of NBS. These were: 




>-RUN 


To execute your program. 


and 




>EXIT 


To leave NBS . 



A few other commands available to programmers in NBS are: 



>L1STNH 


To type in numeric order 
the current numbered state- 
ment of the user's program. 
(NH means no heading) 


>LISTNH 110 


To type out the line(s) 
associated with the line 
number (s) . 110 can be 

any legal line number or 
range of line numbers in 
the program. e.g.(LlSTNH 
100-110) 


>SAVE /PROG/ 


To store a copy of all 
numbered statements in the 
user's core area on a disc 
file under the name given 
between the two slashes by 
the user. 


>LOAD /PROG/ 


To copy the program stored 
on the file /PROG/ into the 
user's area. (PROG is any 
legal file name of a pre- 
viously stored file. Pile 
names up to 9 characters 
are allowed) . 


> APPEND /PROG2/ 


To add the contents of the 
file specified between the 
2 slashes to the current 
user's core area. 



0 
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Examples of using the NBS commands explained on the 
previous page: 

LISTNH 

-NBS 

>10 PRINT A f B,C 
>5 INPUT A,B,C 
>15 END 
>RUN 

?10 ,5,25 

10 5 

>LISTNH 
5 INPUT A,B,C 
10 PRINT A,3,C 
15 END 

>LISTNH 10-15 
10 PRINT A,B,C 
15 END 

SAVE 



Notice that the lines are 
in numeric order. 



>SAVE /EXAMP/ 
>NEW FILE? YES 
>EXIT 



This saves the program in 
your user area on a disc 
file named /EXAMP/. 



LOAD 



-NBS 

>LISTNH 

NO PROGRAM PRESENT 
>LOAD /EXAMP/ 

>RUN 
? 1 , 2, 3 
1 



The user area is "CLEAN" 
when you first enter NBS . 



NOTE : >RUN /EXAMP/ has the 
same effect as these 
two commands . 




2 



3 
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SAVE 



-NBS 

>15 LET D=A+B+C 
>20 PRINT D 
>25 END 

>SAVE /EXAMP 2/ 
>NEW FILE? YES 



APPEND 



-NBS 

> LOAD /EXAMP/ 

> LISTNH 

5 INPUT A,B,C 
10 PRINT A,B,C 
15 END 

> APPEND /EXAMP 2/ 

> LISTNH 

5 INPUT A,B,C 
10 PRINT A,B,C 
15 LET D=A+B+C 
20 PRINT D 
25 END 

> SAVE /EX AMP/ 

> OLD FILE? YES 

> LISTNH 20 
20 PRINT D 

> EXIT 



Loads the first program. 



Adds second program to first 
one. 



Notice that line 15 is line 
15 of the APPEND (ed) program. 

It over writes the first 
loaded line 15 . 

Answering "YES" destroys the 
file and puts the contents of 
the user area (Steps 5, 10, 15, 
20, 25) on that file. 



-NBS 



> RUN 

NO PROGRAM PRESENT 



o 
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>LOAD /EXAMP/ 

>RUN 

?3,4,5 

3 4 5 

12 

>EXIT 

-LOGOUT 



PAPER TAPE FILES 

Since the amount of disc storage is limited, you can also 

use tape storage for your NBS programs as follows: 

Preparing NBS Programs on Paper Tape "Off-Line” 

1. Turn the knob on the lower right corner of the teletype to 
LOCAL. DON'T use the telephone to call the computer. 

2. On the paper tape punch push down the button marked "ON”. 

3. Push down the "HERE IS" key until about two inches of tape 
are punched. This is a leader for your tape. 

4 . Type the first line number and NBS statement on the teletype 
of your program. 

5. After your line is typed, hit the "RETURN" key, the "LINE 
FEED" key, and the "RUB OUT" key in that order. 

6. If you wish to type another line, repeat steps 4 and 5. 

7. Push down the "HERE IS" key until about two additional 
inches of tape are punched. This is a trailer for your 
tape . 

8. Push the "OFF" button on the paper tape punch. Turn the 
knob on the lower right corner of the teletype to "OFF" . 

9. Tear off your punched paper tape. 
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* 

Loading a Paper Tape "On-Line" in NBS 

1. Push the switch on the paper tape reader to the position 
marked "FREE". 

2. Place the paper tape into the paper tape reader and lock it 
into position. LOGON, and ask for -NBS. 

3. On the teletype, after the > type LOAD TPT , then hit "RETURN". 

4. Push the switch on the paper tape reader to the position marked 
"START" . 

5. After the tape is read in (it will list while it is reading 
and error messages will be given) type a control D. 

6. Now you should have a > and are ready to proceed with your 

program; for example you might type RUN, or add new state- 
ments to the program you just read in. 



* On-Line means that your terminal is connected to the computer 
by phone lines. 

Off-Line means that your terminal is not connected to the computer. 
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Saving New NBS Programs on Paper Tape While "On-Line" 

1. Type your program into the computer as usual. 

2. After your program is in the computer, to save it on tape: 

a. After the > type SAVE TPT , then hit the "RETURN" key 

b. Push the "ON" button on the paper tape punch 

3. The program is listed as it is punched. When the punching 
is done, push down the "OFF" button on the paper tape punch. 

4. Type EXIT and LOGOFF if you are finished. 



Saving Old NBS Programs on Paper Tape "On-Line" 

Suppose you have a program stored on the disc file /SILLY/ , 
and you wish to remove this file from disc and save it on paper 
tape. Do the following: 



-NBS 

>LOAD /SILLY/ 
>SAVE TPT 
>EXIT 

-DEL /SILLY/ 
-LOGOUT 



(CR) (Now turn on punch) . 

(This deletes /SILLY/ from 
disc. 



Listing Paper Tapes "Off-Line " 

1. Turn the knob on the lower right corner of the teletype to 
LOCAL. DON 1 T use the telephone to call the computer. 

2 . Push the switch on the paper tape reader to the position 
marked FREE. Place the tape into the reader, and lock it 
in position. 

3. Push the paper tape switch up to START. 




STORING DATA ON FILES 



In addition to using files to store NBS programs, they can 
also be used to store data which is generated by an NBS program 
( writing on files) , or data which is used by NBS programs ( reading 
from files) . 

In NBS to access a filfe for reading input or writing output, 
the file must be opened. The same file cannot be read from and 
written onto at the same time. When the file is no longer needed 
the CLOSE command is issued. Before a file can be opened (OPEN) 
and used again in the same program, it must be closed. 



Example for Writing onto a File (generating data) 

>110 OPEN /STORY/ FOR OUTPUT AS 3 OPEN is the statement that 

allows you to access a file, 
in this case the file named 
/STORY/. OUTPUT states that 
you want to write onto the 
file. 

The number 3*is associated 
with the file /STORY/ . When- 
ever 3 is used in a print 
statement it refers to file 
/STORY/. (See line 130) 

When a file is opened for 
output, it will destroy 
anything previously written 
on the specified file making 
it a clean file. 



>120 INPUT A$ Accepts alphanumeric data 

from the terminal. 



>130 PRINT ON 3: A$ Writes the contents of A$ 

onto the file reference by 

3. 



>140 IF A$= ! ' ##" G0T0 160 Ends program if A$= 



* The user chooses any integer from 2 to 9. (0 and 1 refer to 

the teletype) . 



O 
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>150 G0T0 120 



Goes back and gets more input 
from terminal. 



>160 CLOSE 3 Closes file 3. This statement 

must accompany any OPEN state- 
ment. A file opened for out- 
put must be closed after the 
last bit of information is 
written on it. 



>170 END Terminates program. The only 

output of this program is on 
the file /STORY/. 



>RUN In this example, the "story" 

inputted by the user is the 
?ONCE UPON A "data" written on the file. 

?TIME A LONG 
?TIME AGO 
?## 



Example of Reading from a File (Using Data) 



>110 OPEN /STORY/ FOR INPUT AS 4 



>120 INPUT FROM 4:B$ 



>130 IF B$= "##" G0T0 160 



OPEN again allows you to 
access the file /STORY/ , 
in this case fcr input. 
INPUT means that you want 
to read information from 
the file. In this example 
we are associating the 
number 4 with /STORY/. 



Reads one line of information 
from /STORY/ and stores it 
in the alphanumeric Vciriable 
B$. 



Ends program if B$= "##". 



3 
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>140 PRINT B$ Prints on terminal the con- 

tents of B$. 



>150 G0T0 120 Goes back and reads the next 

line from the file. 



>160 CLOSE 4 Closes file 4 (File /STORY/) . 



>170 END Terminates program. 



>RUN 



ONCE UPON A 
TIME A LONG 
TIME AGO 



The following programs illustrate a business application of 
data files. Briefly, the first program creates a master file 
consisting of an employee number (E) , hourly rate (R ) , and num- 
ber of hours worked (H) . The second program reads the master 
file, then calculates and prints each employee's weekly salary 
(A) including time and a half for overtime, and total weekly 
payroll (S) . 



Program # 1 

110 OPEN /MASTER/ FOR OUTPUT 

111 INPUT E,R,H 

112 PRINT ON 4:E,R,H 

113 IF E>0 THEN 111 

114 CLOSE 4 

115 END 



AS 4 (opens the file) 

(allows the operator to 
type in data from the 
teletype) 

(writes the data on the 
master file) 

(allows steps 111 and 
112 to be repeated as 
often as needed) 

(closes the file) 

(ends the program) 



Program #2 



209 LET S=0 

210 OPEN /MASTER/ FOR INPUT AS 4 

211 INPUT FROM 4:E,R,H 



(initializes S) 

(opens the master file 
created by the first 
program) 

(instructs the system 
to read the data from the 
master file) 



O 
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212 IF E=0 THEN 220 

213 IF H>40 THEN 218 

214 LET P=H*R 

215 PRINT E,P 

216 LET S=S+P 

217 GO TO 211 



218 LET P=40*R+ (H-40) *R*1.5 

219 GO TO 215 

220 PRINT "TOTAL PAYROLL" ,S 

221 CLOSE 4 

222 END 



(allows the program to 
go back , read the next 
set of data, and repeat 
the required computations) 



(closes the file) 
(ends the program) 



Once a file has been created it may be the input to many programs. 
For example, t^s following program reads the same master file and 
calculates total company overtime. 



Program #3 



309 LET S=0 

310 OPEN /MASTER/ FOR INPUT AS 4 

311 INPUT FROM 4:E,R,H 

312 IF E=0 THEN 316 

313 IF H<=40 THEN 311 

314 LET S=S+ (H— 40 ) 

315 GO TO 311 



316 PRINT "COMPANY OVERTIME", S 

317 CLOSE 4 

318 END 



(initializes S) 

(opens the master file) 
(reads the data from the 
master file) 



(allows the program to 
go back, read the next 
set of data, and repeat 
the required computations) 

(closes the file) 

(ends the program) 



O 
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SEC. 4 - THE EXECUTIVE SYSTEM 



The Cam-Share system is a general purpose time-sharing system that 
utilizes an SDS S40, various peripheral equipment, and a network of 
remote terminals (teletypewriters) linked to the computer by Bell 
System DATA-PHONE sets. Users of the system may create and execute 
programs from any location by simply dialing the computer on the 
teletypewriter's telephone.’ An advantage Corn-Share's users enjoy is 
the speed and convenience of a conversational system. This inter- 
active characteristic of the Corn-Share system allows each user com- 
plete control over his activity. 

Although a large number of users may be accessing the Corn-Share sys- 
tem at the same time , the sophisticated software that controls the 
system assures the complete separation of each activity. Thus, each 
user may conceptually imagine that he is the only user on the system. 

To further enhance the convenience of programming, the Com-Share 
system maintains control of all information (files) created by its 
users. Prior to creating a file the user gives it a name. Subse- 
quently, he may at any time request the file by that name? the system 
will retrieve it from peripheral storage without the user needing 
to know where it is. 

The system assumes that any file created by a user belongs exclusive- 
ly to him and will deny any other user's request to access it. Should 
a user wish to make his file available to either those individuals 
sharing his account number or all the users on the system, he may 
request the system to change the status of the file. 

One of the significant advantages of the Com-Share system is the 
large number of language processors (subsystems) available to its 
users. They allow the system to be used for nearly any purpose. 

For example, it is possible to use the system as a desk calculator 
merely by typing in the expression to be evaluated. On the other 
hand, one can write highly complex scientific programs or even per- 
form system simulation simply by selecting the appropriate subsys- 
tem. The subsystems currently available are: 



BASIC - A simple, easily learned and used compiler language. 
NBS/CATALYST - An advanced BASIC plus special CAI features. 
CAL - A powerful conversational compiler for numerical com- 
putation (like PIL) . 

COMPACT - A numerical control language for machine tools. 

DDT - An on-line debugging system. 

XTRAN - Extended FORTRAN IV. 

PDPS - A simulator for PDP-8, PDP-5, or PDP-8S computers. 
COSS - A general simulation language. 

QED - A sophisticated text editing system. 

CODED-CAP - A network analysis language. 

SNOBOL - A string manipulation language. 

TAP - A machine language macro assembler. 



0 
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Each of these subsystems is fully described in its own manual. 

The Com- Share system also maintains a large number of permanent li- 
brary routines. Users with particular problems to solve may often 
discover that one of the library routines can be used, affording 
great savings in time and effort. These routines cover such areas 
as mathematics, management sciences, engineering and general sciences, 
manufacturing, business, and utility. The reader is referred to the 
Library Reference Manual for a complete list of these routines. Users 
are also encouraged to submit their programs of general interest for 
possible inclusion in the library. 

In order to use the system, one needs to know the telephone number of 
the system and be able to supply proof that he is a Corn-Share customer. 
This proof, or identification, consists of a single string of up to 
15 characters . Some of these characters are assigned by Corn-Share 
when thei user agrees to purchase time on the system, and the rest are 
chosen by the user. A user may elect to have non-printing characters 
in his identification to provide password protection. 

After the user dials the appropriate telephone number and connection 
to the computer is made, the system will request him to type in his 
identification. This process is known as "logging in". If his iden- 
tification is legitimate, the user will be given access to the system. 

Once the user gains access to the system there is a set of commands 
available that allows him to inform the system about the task he ex- 
pects it to perform. All of these commands are first evaluated by 
one of the system modules called the Executive. It subsequently dir- 
ects the appropriate system module or subsystem to complete the re- 
quested task. The user, therefore, need not be concerned with the 
complex interface between the Executive and the rest of the system — 
he only needs to know the commands that comprise his interface with 
the Executive . 

Having the Executive in complete control of the system is of great 
advantage to the user. Files created in one subsystem can be utilized 
by other subsystems because the Executive is responsible for storing 
and retrieving files. 



EXECUTIVE COMMANDS THAT MAY BE ENTERED AFTER THE DASH (-) 



The following is a brief example of some of the operations that can 
be performed with the Executive on Corn-Share' s time-sharing system: 



PLEASE LOG IN:12PC0M;LL 

READY, SYSTEM T04 

COM- SHARE AA 

APR 30~ ~5:17 

LAST LOGIN: APR 23 




12:46 
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UP TIL 7:30 P.M. 

-FILES (The user requests a listing of the files 

in his file directory) 

5 FILES 

/BMAC/ /PR/ /BIN/ /SORT/ /BOB/ 

-COPY /SORT/ 

TO TELETYPE 

~ £0 PRINT "HOW MANY NUMBERS TO BE SORTED?" 

50 INPUT N : 



60 FOR T=T 



THE NUMBERS 
To to 



II 



WTNFUT“ETTT 



W 



TW 

TW 

TW 

TW 



HEXT I 

=■1 TO N-l 
P5R _ T="I+1 TO 



IP "ATI) >A(J) 

NEXT J 
"NEXT I 



TT 

THEN 150 



TW 

TW 



TW 



TET" 

"LET" 



TW 

TW 



TET" 

W 



T=A(I) 

E(T)=A(J) 



A(J)=t 
tot 



T3TJ - 
PRINT' r SORTED 



NUMBERS" 



iy0 For i=± To n 
WO PRINT All) 

210' NEXT I 

220' END 



-RENAME /SORT/ AS /BASICSORT/ (He changes the name 

of the file.) 

-DELETE /PR/ (He removes one of the files from his 

directory and again requests a listing 
OK? Y of his files.) 

:: FTles 

4 FILES 

/BMAC/ /BOB/ /BASICSORT/ /BIN/ 

::: NE5 (He requests the use of the NBS subsystem, loads 

his program into it, and then instructs NBS to 
run the program. ) 

>LOAD 

FROM /BASICSORT/ 

>Run 

HOW MANY NUMBERS TO BE SORTED? 

_? 5 (The question marks indicate that the NBS sub- 

system is requesting input) 

TYPE THE NUMBERS 
? 4 
? 7 




(Exit from the NBS Subsystem) 
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On the next 3 pages we will shew some additional executive com- 
mands that are particularly useful for CAI work. 



Session 1 

METHOD BY WHICH TEACHERS MAY CREATE A PROGRAM 
FOR THEIR STUDENTS' USE 



COMSHARE CENTER K124 

PLEASE LOG IN:K166;CL Teacher "CL" logs on. 

READY, SYSTEM WO 4 
SEP 16 14:45 

LAST LOG IN SEP 16 10:59 

-NBS Enters NBS . 

VER.AUG 25 17:18 



>10 LET Y=2 
>20 LET X=1 

>25 IF PASS >8 GOTO 90 
>30 LET Y=Y+1 
>40 LET X=X+1 

>50 PRINT "WHAT IS ":X:" + ":Y 
>60 INPUT A 

>70 IF ABS (A- (X+Y) ) <.001 CALL REIN, GOTO 25 
>80 PRINT "NO THE ANSWER IS " :X+Y 
>85 GOTO 25 

>90 PRINT "GOOD-BY FOR NOW" 

>100 END 
>SA T 7E /MATH/ 

NEW FILE? YES 
>EXIT 

-DEFINE /MATH/ AS PUB 



Creates a drill or 
tutorial program. 



Saves program on a file. 
Leaves NBS. 

Uses the define command 
to make his file public 
(i.e., other users may 
access it) . 



-WHATS /MATH/ 



Checks the status of 
his file. 



/MATH/ 2 SYM SEP 16 14:55 PUB RDO 

+ + + + 

Size Type Date Created Status 

+ + + 

(2 blocks= (Symbolic lang., (Public 
2000 char.) i.e., NBS) Read Only) 



Note: Approximately 15 lines of NBS fit in 1 block. 



-LOGOUT 
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Session 2 

A STUDENT INTERACTING WITH THE TEACHER'S PROGRAM 



COMSHARE CENTER K124 
PLEASE LOG IN:K166;FW 
READY , SYSTEM WO 4 
SEP 17 15:04 
LAST LOG IN SEP 16 14:56 
-NBS 

VER.AUG 25 17:18 




WHAT IS 4 + 5 



Student "FW" logs on. 



Goes into NBS . 

To load the public program /MATH/ 
the student types the account 
number and the user identification 
code of the creator, followed by 
a blank and the program name en- 
closed in slashes. 

Student runs the program and 
interacts with it. In this ex- 
ample, a simple arithmetic drill 
is shown. 



K is not typed - (This is the name 
of the computer we are using.) 



? 8 



NO THE ANSWER IS 9 
WHAT IS 5 + 6 

?10 

NO THE ANSWER IS 11 
WHAT IS 6 + 7 

?13 

CORRECT 

WHAT IS 7 + 8 

?9 

NO THE ANSWER IS 15 
WHAT IS 8 + 9 



?7 

NO THE ANSWER IS 17 
WHAT IS 9 + 10 

?91 

NO THE ANSWER IS 19 
GOOD-BY FOR NOW 

>EXIT 



The PASS statement in line 25 
causes the program to terminate 
after 8 responses. See page 5-3 
for further information. 



-LOGOUT 



O 
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Session 3 

METHOD BY WHICH TEACHER MAKES CHANGES IN HIS "PUBLIC" LESSON 



COMSHARE CENTER K124 

PLEASE LOG IN:K166;CL Teacher "CL" logs on. 

READY, SYSTEM WO 4 
SEP 18 14:50 

LAST LOG IN SEP 16 14:45 

-DEFINE /MATH/ AS PRI The file must be re- 

defined as "private" in 
order to change it. 



-NBS 

VER. AUG 25 17:18 
>LOAD /MATH/ 

>50 PRINT "WHAT IS ":X:" * " :Y 

>70 IF ABS (A- (X*Y) ) < . 001 CALL REIN, GOTO 30 

>80 PR. "NO THE ANSWER IS ":X*Y 

>SAVE /MATH/ 

OLD FILE7YES 
>EXIT 



-DEFINE /MATH/ AS PUB 



Enters NBS . 



Changes lines 50, 70, 
and 80 so that the drill 
is now on multiplication. 

Answering "yes" causes 
old file (on disc) to 
be erased, and the new 
version (in core) to be 
stored under the name 
/MATH/ . 

Defines /MATH/ as 
public again. 



Session 4 

INTERACTION OF A STUDENT WHO USES /MATH/ AFTER 
SESSION 3 IS FINISHED 



COMSHARE CENTER K124 
PLEASE LOG IN:K166;FW 
SEP 18 15 : 30 
LAST LOGIN SEP 17 15:04 
-NBS 

VER. AUG 24 17:18 
>LOAD 166CL /MATH/ 

>RtTN 

WIIAT IS 2 * 3 

?6 

CORRECT 

WHAT IS 3 * 4 

?12 
RIGHT 

WHAT IS 4*5 
?22 

NO THE ANSWER IS 20 
WHAT IS 5 * 6 

•? 

«-ESC: 70 



Student "FW" logs on. 



Goes into NBS . 

This time when he loads the public 
/MATH/ program, he gets the new 
version, a drill on multiplication. 



He did not wish to continue so he 
hit the escape key. 
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SECTION 5 - USE OF THE CATALYST FEATURES IN NBS \ 

■5 

CATALYST was originally a separate language, developed at j 

the University of Pittsburgh for Computer Assisted Teaching and | 

Learning. The key features of CATALYST have been re-written to | 

be included in NBS. In other words, programmers can mix CATALYST j 

statements right in with NBS statements. In addition to the new J 

statement types allowed, there is a CATALYST feature called @NBS, 
which allows users to write and run small NBS programs while \ 

interacting with someone else's '3BS program. We will first des- 1 

cribe the new CATALYST statements , then show some sample pro- 3 

grams using these features together with interactions that show \ 

how to use 0NBS . 1 



IS, ICO, REIN, and IBEF (as used in an IF statement) 

R$ holds the student's response. 

A$ holds a string supplied by the programmer. 

W is either 0 or 1. 

IS (R$ ,A$ , 0) has the value TRUE when R$ and A$ are exactly 

the same, value FALSE otherwise. 

IS (R$ , A$ , 1) has the value TRUE when R$ and A$ are exactly 

the same after special characters* are .removed from in front of 
and after R$. It has value FALSE otherwise. 



IS (R$,A$,W) 



3 

: 1 



3 

■J 

i 

j 



Several IS calls can be combined by using the Boolean connectives I 
NOT, AND, OR, XOR, and BUT. | 

EXAMPLE : | 

■ i 

I 



>10 PR. "WHAT ADJECTIVE REFERS TO SEA-GOING VESSELS?" 
>20 INPUT R$ 

>30 IF IS (R$ , "MARINE" , 1) .OR IS (R$ , "OCEANIC" , 0) GOTO 60 
>40 PR. "NO, TRY AGAIN. 

>50 GOTO 20 
>60 PR. "CORRECT" 

>70 END 



>RUN 



WHAT ADJECTIVE REFERS TO SEA-GOING VESSELS?! 



? SUBMARINE 
NO, TRY AGAIN. 



Not accepted because 
of the B in front of MARj 



l 

m 



?. . . OCEAN _'C! 
NO, TRY AGAIN. 



?. . .MARINE! 
CORRECT 



V 



Not accepted because 
'W = 0. 



-Accepted because 
W = 1. 



Anything not a number or letter. Thus, for example, #@NOl 
will be treated as NO, but KNOW or N08 will not be. 



ERIC 



is similar to IS, except that the student can 
type in a long string (R$) which is scanned 
to see if it contains A$. 

ICO (R$ ,A$ , 0) has the value TRUE when the string A$ is found 
anywhere in R$ . 

ICO (R$ ,A$ , 1) has the value TRUE when the string A$ is found 
anywhere in R$ , provided there is not a letter or number immedi- 
ately before or after the occurrence of A$ in R$. In this case 
we speak of looking for the 'word' A$ rather than the string A$. 



ICO(R$,A$,W) 



supply "mild" or "enthusiastic" reinforcement 
messages. 



EXAMPLE: 



CALL REIN, and 
CALL RRIN 



5 PR. "ADJECTIVES: MARINE, WET" 

10 PR. "WHAT ADJECTIVE REFERS TO THE SEA?" 



20 INPUT R$ 

30 IF ICO (R$," MARINE",!) BUT NOT 
40 PR. "NO, TRY AGAIN" GOTO 10 
50 END 
RUN 

ADJECTIVES: MARINE, WET 

WHAT ADJECTIVE REFERS TO THE SEA? 

? MARIN 

NO, TRY AGAIN 

? SUBMARINE 
NO, TRY AGAIN 
?WET OR MARINE 
NO, TRY AGAIN 

?THE ANSWER IS MARINE! 

CORRECT 



ICO (R$ , "WET" ,1) CALL REIN, GOTO 50 



Not accepted since R$ does not 
contain A$ . 

Not accepted since W - 1. 

Not accepted since WET is 
present in R$. 

Accepted. 



IBEF has the value TRUE if A$ is 
contained in R$ and B$ is contained 
in R? ] but with A$ coming before B$. 

The first W is made 1 or 0 depending on whether you do 
or do not wish A$ to be judged to be a whole 'word' . 

The second W us used in the same way for B$. 



IBEF (R$ , A$ ,W, B$ ,W) 



e.g. IBEF (R$, "Xl",l, "X (3) " ,0) 

ACCEPTED 
REJECTED 
REJECTED 
ACCEPTED 



?(X1) PRECEDES X (3) 
?X12 PRECEDES X(3) 
?SEXl PRECEDES X(3) 
?X1 PRECEDES SEX (3) 
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EXAMPLE: 

10 PR. "WRITE A DECLARATIVE SENTENCE USING ONLY THE WORDS: 
DESKS , MEN, CARS , DEEPLY , THINK , THINGS , BUILD " 

20 LET M$="MEN" 

30 LET B$= "BUILD" 

40 LET T$="THINK" 

50 INPUT R$ 

60 IF IBEF (R$ ,M$ , 1 ,T$ , 1) OR IBEF (R$ ,M$ , 1,B$ , 1) CALL RRIN , 
GOTO 80 

70 PR . "ARE YOU SURE THAT’S A SENTENCE?" 

80 IF PASS >2 GOTO 100 
90 PR. "TRY ANOTHER" GOTO 50 
100 END 

>RUN 

WRITE A DECLARATIVE SENTENCE USING ONLY THE WORDS: 

DESKS , MEN , CARS , DEEPLY , THINK , THINGS , BUILD 

?CARS THINK DEEPLY 

ARE YOU SURE THAT'S A SENTENCE? 

TRY ANOTHER 
?MEN BUILD THINGS 
VERY GOOD 



100 IF PASS > N GOTO 800 
110 



You can read this statement to mean that the program will 
PASS through to the next statement (in this case 110) N times. 
The (N+l)st time the program will branch to line 800. 

EXAMPLE: 



20 LET Y=NUM ( 10) — 1 
30 LET X=SIN(Y) 

40 PR." WHAT IS THE SIN OF " : Y : " RADI ANS " ; 

50 INPUT R 

60 IF ABS (R-X) < . 001 CALL REIN, GOTO 100 
70 PR. "NO, THE ANSWER IS":X 
80 IF PASS >3 GOTO 200 
90 GOTO 20 

100 IF PASS >5 GOTO 220 
110 GOTO 20 

200 PR. "YOU HAD 4 WRONG. ASK YOUR TEACHER FOR HELP." 
210 STOP 

220 PR. "YOU HAD 6 CORRECT. NOT BAD. 

230 END 



0 




II 
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USE OF @NBS 

@NBS is a command that can be given only during the exe- 
cution of an NBS program in response to 

a question mark (?) that is asking for input. @NBS suspends your 
main program and takes you into a "scratch pad” version of NBS . In 
this version any NBS statement or command can be used. All var- 
iables are considered new 9 i.e. There is no transrer of variable 
values between the main NBS program and the @NBS program. 



A Sample Program Execution Showing @NBS Feature 



>RUN 

TYPE THE LENGTH OF A RECTANGLE 
?23 

TYPE THE WIDTH OF A RECTANGLE 

14 

TYPE THE AREA OF YOUR RECTANGLE 
?(?NBS 

VER. AUG. 24 18:13 
>PRINT 23*4 

92 

>EXIT 



In response to (?) asking 
for input type @NBS . 

Now you are in the subsystem 
of NBS. 

The computer gives you > . 

You may do any short NBS 
program. 



Takes you back to your main 

program — all variables are 
at their previous values — 
the values and variables in 
the scratch pad program are 
lost. 



O 

ERLC 



5-5 



?9 2 



NBS now returns with the 
question mark for the 
previous input demand. 



THAT'S RIGHT. WANT TO DO ANOTHER? NO 

> 



LISTING OF THE ABOVE PROGRAM 

PRINT "TYPE THE LENGTH OF A RECTANGLE" 
INPUT L 

PRINT "TYPE THE WIDTH OF A RECTANGLE" 
INPUT W 

PRINT "TYPE THE AREA OF YOUR RECTANGLE" 
INPUT A 

IF A=L*W G0T0 180 
PRINT "THAT'S WRONG TRY AGAIN" 

G0T0 160 

PRINT "THAT'S RIGHT. WANT TO DO ANOTHER"; 
INPUT A$ 

IF A$="YES " G0T0 110 
END 



USE OF IEQIV 

By removing line 200 in the above program, and inserting: 
195 LET Y$=" , YES, SURE, OK, O.K, , CERTAINLY, OF COURSE, YUP" 

200 IF IEQIV (A$ , Y$ , 0) G0T0 110 

the previous program will branch to line 110 for a user who 
responds to the line 190 input request with 
?YES 

or ?SURE 
or ?OK 
or ?O.K. 
or ? CERTAINLY 
or ?OF COURSE 
or ?YUF 



110 

120 

130 

140 

150 

160 

165 

170 

175 

180 

190 

200 

210 



ERIC 
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Example of using @NBS to Retrieve Information 



Let's suppose a teacher creates a file called /RIPLEY/ 
with the following data on it: 

4 ITEMS: 

THE WASHINGTON MONUMENT 
THE HONG KONG HILTON 
THE’ TEMPLE OP KARNAK 
THE HANGING GARDENS 

(Seo pages 3-13 & 3-14 if you don't remember how to do this.) 

If the teacher (TD) wants other people to use the file, he must 
also define it as PUBLIC (see page 4-4) . 



He then writes the following program: 



LISTING: 

>10 PR. "THIS IS A TRIVIAL EXAMPLE 0F A TUTORIAL WHERE 
Y0U MAY USE @NBS T0 RETRIEVE DATA PR0M THE PILE /RIPLEY/. 
D0 Y0U HAVE Y0UR PILE INSTRUCTI0N SHEET WITH Y0U? " 

>20 LET Y$=" , YES, YUP, SURE, 0F C0URSE , AFFIRMATIVE , " 

>30 INPUT R$ 

>40 IF IEQIV (R$ ,Y$ , 0) G0T0 70 

>50 PR. PLEASE L0G0UT AND 0BTAIN THE FILE INSTRUCTI0N 
SHEET. PRACTICE USING IT 0N A TERMINAL BEF0RE TRYING 
THIS LESS0N . " 

>60 ST0P 

>70 PR. "HERE IS Y0UR FIRST QUESTI0N 

NAME AN 0BELISK F0UND IN AFRICA" 

>80 INPUT R? 

>90 IF IC0 (R$ , "KARNAK" , 1) CALL RRIN , G0T0 120 

>100 PR. "S0RRY - Y0UR ANSWER ISN'T 0NE WE ANTI CIPATED . 

WE HAD THE 'TEMPLE 0F KARNAK' IN MIND" 

>120 PR. "LET'S TRY AN0THER QUESTI0N 
ETC " 




>130 END 
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AN INTERACTION : 

>RUN /TRIVIAL/ (OR: RUN 166TD /TRIVIAL/ ) 

THIS IS A TRIVIAL EXAMPLE 0F A TUTORIAL WHERE 

Y0U MAY USE @NBS T0 RETRIEVE DATA FR0M THE FILE /RIPLEY/. 

D0 Y0U HAVE Y0UR FILE INSTRUCTI0N SHEET WITH Y0U? 

?YUP 

HERE IS Y0UR FIRST QUESTI0N 

NAME AN 0BELISK F0UND IN AFRICA 

70NBS 

VER. AUG 12 17:20 

>0PEN /RIPLEY/ F0R INPUT 2 (OR: OPEN 166TD /RIPLEY/ FOR INPUT 2) 

>INPUT FR0M 2, A$(I) F0R 1=1 T0 5 
>PRINT A$ (I) F0R 1=1 T0 5 
4 ITEMS: 

THE WASHINGT0N M0NUMENT 
THE H0NG K0NG HILT0N 
THE TEMPLE 0F KARNAK 
THE HANGING GARDENS 
>CL0SE 2 
>EXIT 

RESP0ND T0 LAST INPUT REQUEST 
?THE TEMPLE 0F KARNAK IS THE ANSWER 
VERY G00D INDEED! 

LET'S TRY AN0THER QUESTI0N 
ETC 



Example 2 
LISTING: 

>100 PR. "SLIDE RULE DRILL: ESTIMATING CUBE R00TS " 

>110 REM WE ASSUME USE 0F A RAND0M GENERAT0R AND A 
>120 REM LINEAR TRF T0 SUPPLY A VALUE F0R X IN LINE 130 
>130 LET X=?7595.4 

>140 REM WE ASSUME THAT A SUBR0UTINE W0ULD BE CALLED IN LINE 
>150 REM 160 F0R CALCULATING ANSWERS T0 M0RE GENERAL PR0BLEMS 
>160 LET C=X+. 333333 

>170 PR. "PLEASE ESTIMATE THE CUBE R00T 0F" :X 
>180 INPUT R 

>190 IF R>C-C* . 05 AND R<C+C*.05 CALL REIN, G0T0 300 
>200 IF R>=C+C* .05 G0T0 240 
>210 IF R<=C-C* . 05 G0T0 260 

>220 PR. "D0 N0T UNDERSTAND - PLEASE REPEAT" 

>230 G0T0 170 

>240 PR. "N0 — HINT: Y0UR ESTIMATE IS T00 LARGE" 

>250 G0T0 170 

>260 PR. "N0 — HINT: Y0UR ESTIMATE IS T00 SMALL" 

>270 G0T0 170 

>300 PR. "LET'S TRY AN0THER - IF Y0U WISH T0" 

>310 PR. "ST0P AT ANY TIME PRESS THE 'ESC' KEY" 

>320 G0T0 130 
>330 END 




AN INTE RACTION : 



>RUN /SLIDES/ 

SLIDE RULE DRILL: ESTIMATING CUBE R00TS 

PLEASE ESTIMATE THE CUBE R00T 0F 37595.4 
?10 

N0 — HINT: Y0UR ESTIMATE IS T00 SMALL 

PLEASE ESTIMATE THE CUBE R00T 0F 37595.4 
?60 

N0 — HINT: Y0UR ESTIMATE IS T00 LARGE 

PLEASE ESTIMATE THE CUBE R00T 0F 37595.4 
?@NBS 

VER. AUG 12 17:20 
>5 INPUT A,B 
>10 F0R I=A T0 B 
>15 PRINT I ; 1*1*1 
>20 NEXT I 
>25 END 
>RUN 
?35 40 



35 


42875 


36 


46656 


37 


50653 


38 


54872 


39 


59319 


40 


64000 


>RUN 




?30 35 




30 


27000 


31 


29791 


32 


32768 


33 


35937 


34 


39304 


35 


42875 



>PRINT 33.4*33.4*33.4 
3 7259.704 

>PRINT 33.5*33.5*33.5 
37595.375 
>EXIT 

PLEASE RESP0ND T0 LAST INPUT REQUEST 

? 33 . 5 

C0RRECT 

LET'S TRY AN0THER - IF Y0U WISH T0 
ST0P AT ANY TIME PREPS THE 'ESC 'KEY 
PLEASE ESTIMATE THE CUBE R00T 0F . . . . 
?«-f-ESC: 180 




LIBRARY FUNCTIONS IN NBS (SEPT. 1970) 



ABS (X) 


Absolute value of X 


INT (X) 


Integer part of X 


MOD (X,Y) 


X modulus Y 


MAX (X , . . . ,Z) 


Maximum of arguments 


MIN (X, . - ,Z) 


Minimum of arguments 


SGN (X) 


Sign of X 


DIF (X,Y) 


Positive difference ABS (X-Y) 


IMAG(C) 


Imaginary part of C 


REAL (C) 


Real part of C *r t implemented 


CMPLX (X, Y) 


Complex number X,Y 


CONJG (C) 


Conjugate of C 


EXP (X) 


e to the X power 


LOG (X) 


Natural log of X 


LGT ,LOG10 (X) 


Log, base 10, of X 


SIN (X) 


Sine of X 


COS (X) 


Cosine of X 


TANH (X) 


Hyperbolic tangent of X 


SQB,SQRT(X) 


Square root of X 


ATAN (X) ,ATAN(X,Y) 


Arctangent of X, or of X/Y 


ARCS IN (X) 


Arcsine of X 


ARCCOS (X) 


Arccosine of X 


CINH (X) 


Hyperbolic sine of X 


COSH (X) 


Hyperbolic co sine of X 


FIX (X) 


Integer mode form of X 


FLOAT (I) 


Floating point mode form of I 


SNGL (D) 


Single precision mode form of D 


NUM(X) 


Random numbers from 1 to X 


LSH (I ,J) 


Binary left shift I for Z positions 


RSH (I ,J) 


Binary right shift I for J positions 


WAIT (X) 


Halt execution for X seconds 


POS (I) 


Print head position of file I 


TAN (X) 


Tangent of X 
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STRING FUNCTIONS 

(S = String Argument, N = Numeric Argument) 



INDEX (S lf S 2 ) 



LEFT (S ,N) 

LENGTH (S) 
RIGHT (S,N) 

SPACE (N) 
STR(N) 



substr(s 1 n 2 ) 



SUBSTR(S ,N lf N 2 ) 



VAL(S) 



Position of S 2 within S.^; 

e.g., INDEX ("ABC" ,"C") = 3. 

Slabstring of S; N characters long starting 
from. left. 

Number of characters in S . 

Sxobs tring of S; N characters long, 
starting at right. 

String N spaces long. 

String of the characters comprising N. 

STR (4) = "4". 

Substring of S from N^th character to the 
end of S . 

Substring of S: N 2 characters long, 
starting at N^th character. 

Numeric value of S , whore S must be a 
numeric string; e.g. VAL("+8") = 8. 



Example of using the XTRAN function FACTRL (see the XTRAN library 
manual for details on over 100 such functions which are also 
available in NBS) . 

10 INTEGER N,I,K 
^5 LET N=C 

20 LET K=N— 3 

21 LET X=FACTRL (N,F,B,I) /FACTRL (K,F,B,I) 

22 PRINT N; K;X; FACTRL (N,F,B,I) ; FACTRL (K ,F,B , I) 

25 END 

>RUN 




336 40320 



120 
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The Random Generators RRAND And NUM 

The function RRAND (X) produces a random number between 0 
and X, where X is any number containing a decimal point. 

EXAMPLE : 

PRINT RRAND (50.0) causes a different number to be printed 
each time it is executed, of the form: 

27. 3469 
0.8356 
18.2634 
5.7082 
49.0236 

INT (RRAND ( 50 . 0) ) would produce the integer parts of these numbers: 



27 

0 

18 

5 

49 



NUM (50) would produce numbers 
like 41, 1, 28, 50, 13, etc., 
i.e. 1<=NUM(5C) <=50. 



Example of Use of RRAND in a Drill Program (created by user XX) 



(LF) 



>10 PR. "ADDITI0N DRILL 
>WHAT IS Y0UR NAME PLEASE" 

>20 INPUT N$ 

LET X— INT ( RRAND (100.0) ) 

LET Y=INT (RRAND (100.0) ) 

IF P7iSS>5 THEN 110 
PR. :: WHAT IS" :X: " + " :Y; 

INPUT R 

IF ABS (1- (X+Y)/)j <.03 CALL REIN, G0T0 
PR. "N0 , THE ANSWER IS" :X+Y G0T0 40 
PR. "THAT'S ALL F0R N0W " :N$ 

PR. " D0N 1 T ■’0RGET T0 EXIT AND L0G0UT" 
END >EXIT 

-DEF /DRILL/ AS PUB 



>40 
>50 
>60 
>70 
> 80 
>90 
>100 
> 110 

> 115 

> 120 
> SAVE 

>0N: /DRILL/ 



40 



-LOGOUT 



> RUN . /DRILL/ ^ - 

SUBPR0GRAMS REQUIRED 
FILE: 166CL /RB/ 



ADDITI0N DRILL 

WHAT IS Y0UR NAME PLEASE? H0RATI0 

WHAT IS 65+ 94?23 

N0 , THE ANSWER IS 159 

WHAT IS 89+ 477136 

0.K. 

WHAT IS 35+ 33768 
THAT'S RIGHT 
WHAT IS 42+ 31734 
NO, THE ANSWER IS 
73 

WHAT IS 79+ 917170 
C0RRECT 

THAT'S ALL F0R N0W H0RATI0 



Alternate Coding 

40 LET X=NUM(100) 
50 LET Y=NUM (100) 



A user other than xx would type 
>RUN 166XX /DRILL/ 

where XX is creator * s ID . 

Answering 166CL /RB/ is 
necessary because of use 
of RRAND in main program. 

(This is a temporary sit- 
uation because RRAND is a 
newly developed "experi- 
mental" function.) 



NUM doesn't request any 
SUBPROGRAMS,, 

NUM always returns an inte- 
ger, so you don't have to 
say INT (NUM (50) ) . 
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